prevod textu s diaktritikov na text bez
Otázka od: mato
5. 5. 2004 7:33
hi,
viete niekto nejaky postup ako previest text aj s diaktritikou na text bez
diaktritiky ?
D7
Odpovedá: Karel PeATinka
5. 5. 2004 9:13
Mozna existuje jina moznost ale ja pouzivam svoji velmi jednoduchou funkci.
Muzes si jenom pripsat slovensky znaky a mas to.
function OdstranDiakritiku(s: String): String;
const Diak =
('+AOEA6QDsAO0A8wD6APkA/QDoAO8A+AFhAJ0A8gF+AMEAyQDMAM0A0wDaANkA3QDIAM8A2AFgAI0A0gF9-');
Bez = ('aeeiouuycdrstnzAEEIOUUYCDRSTNZ');
var i, j: Integer;
begin
for i:=1 to length(s) do
for j:=1 to length(Diak) do
if s[i]=Diak[j] then s[i]:=Bez[j];
Result:=s;
end;
Karel
-----Original Message-----
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz] On Behalf
Of mato
Sent: Wednesday, May 05, 2004 8:21 AM
To: delphi-l@clexpert.cz
Subject: prevod textu s diaktritikov na text bez
hi,
viete niekto nejaky postup ako previest text aj s diaktritikou na text bez
diaktritiky ? D7
Odpovedá: Bohac Frantisek
6. 5. 2004 14:58
s pomoci Synapse by to mohlo jit (unita SynaChar)
S pozdravem
Frantisek Bohac
----- Original Message -----
> viete niekto nejaky postup ako previest text aj s diaktritikou na text bez
> diaktritiky ?
Odpovedá: mato
6. 5. 2004 16:54
a kde najdem v helpi k tomu help ? Neviem ten help v D7 popisuje funkcie
zakladu ale nie dalsich unit. Ako sa k tomu dostanem ?
----- Original Message -----
From: "Bohac Frantisek" <bohacf@vnol.cz>
To: <delphi-l@clexpert.cz>
Sent: Thursday, May 06, 2004 3:41 PM
Subject: Re: prevod textu s diaktritikov na text bez
> s pomoci Synapse by to mohlo jit (unita SynaChar)
>
> S pozdravem
>
> Frantisek Bohac
>
> ----- Original Message -----
> > viete niekto nejaky postup ako previest text aj s diaktritikou na text
bez
> > diaktritiky ?
>
>
>
>
>
> ----------
> * www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
> * www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
> * Zoner Media Explorer 6 - stiahnite si pomocnika pre digitalnu fotografiu
(http://www.zoner.sk/zme6)
>
>
>
>
> __________ Informacia od NOD32 1.751 (20040505) __________
>
> Tato sprava bola preverena antivirusovym systemom NOD32.
> http://www.eset.sk
>
>
Odpovedá: Bohac Frantisek
7. 5. 2004 6:57
----- Original Message -----
> a kde najdem v helpi k tomu help ? Neviem ten help v D7 popisuje funkcie
> zakladu ale nie dalsich unit. Ako sa k tomu dostanem ?
Odpovedá: Bohac Frantisek
7. 5. 2004 6:40
Omlouvam se za predchozi prazdnou zpravu (Ctrl+Enter v OE 
.
Synapse ja balik unit pro TCP/IP komunikaci ; najdes ji na adrese
http://www.ararat.cz/synapse/; nic se nemusi instalovat, jen prilozis unitu
ke zdrojaku.
F.
----- Original Message -----
> a kde najdem v helpi k tomu help ? Neviem ten help v D7 popisuje funkcie
> zakladu ale nie dalsich unit. Ako sa k tomu dostanem ?
Odpovedá: mato
7. 5. 2004 7:36
jasne, uz so to nasiel. Vyzera to na funkciu CarsetConversion . nie ? Aky
charTo ale mam pouzit aby mi to previedlo na text bez diaktritiky ?
> Synapse ja balik unit pro TCP/IP komunikaci ; najdes ji na adrese
> http://www.ararat.cz/synapse/; nic se nemusi instalovat, jen prilozis
unitu
> ke zdrojaku.
>
> F.
>
Odpovedá: Bohac Frantisek
7. 5. 2004 10:00
V Synapsi to mela byt fce CharsetConversionEx('text', CP1250, CP1250,
Replace_Czech), ale ta nepodporuje Slovenstinu (je treba dopsat nektere
znaky do Replace_Czech: array[]), tak Ti poslu na soukromy mail unitu
codeconvtools.pas, ktera to umi:
ConvertString('text', cp1250, cpAscii, CaseNoChange);
F.
P.S.
No ale kdyby jsi to do Synapse pripsal a poslal to Lukasi Gebauerovi, tak by
se urcite nezlobil ... 
----- Original Message -----
> jasne, uz so to nasiel. Vyzera to na funkciu CarsetConversion . nie ? Aky
> charTo ale mam pouzit aby mi to previedlo na text bez diaktritiky ?
Odpovedá: mato
7. 5. 2004 11:07
ak mozes takmi to posli - codeconvtools.pas
mail : mato.tino@inmail.sk
dik
> V Synapsi to mela byt fce CharsetConversionEx('text', CP1250, CP1250,
> Replace_Czech), ale ta nepodporuje Slovenstinu (je treba dopsat nektere
> znaky do Replace_Czech: array[]), tak Ti poslu na soukromy mail unitu
> codeconvtools.pas, ktera to umi:
>
> ConvertString('text', cp1250, cpAscii, CaseNoChange);
>
> F.
>
> P.S.
> No ale kdyby jsi to do Synapse pripsal a poslal to Lukasi Gebauerovi, tak
by
> se urcite nezlobil ...
>
> ----- Original Message -----
>
> > jasne, uz so to nasiel. Vyzera to na funkciu CarsetConversion . nie ?
Aky
> > charTo ale mam pouzit aby mi to previedlo na text bez diaktritiky ?
>
>
>
>
>
> ----------
> * www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
> * www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
> * Zoner Media Explorer 6 - stiahnite si pomocnika pre digitalnu fotografiu
(http://www.zoner.sk/zme6)
>
>
>
>
> __________ Informacia od NOD32 1.752 (20040506) __________
>
> Tato sprava bola preverena antivirusovym systemom NOD32.
> http://www.eset.sk
>
>